﻿Public Class frmOpcjePoprawy

    Private mvarDbHolder As clsDataBase

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        mvarDbHolder = New clsDataBase(VAR_CONNECTION_PARAMETERS, VAR_ERROR_HANDLER)

        PobierzWszystkieOpcjePoprawy()

    End Sub

    Private Sub PobierzWszystkieOpcjePoprawy()

        Dim lvarDataTable As New DataTable

        lvarDataTable = clsTrOpcjePoprawy.PobierzWszystkieOpcje(mvarDbHolder, VAR_ERROR_HANDLER)

        If Not lvarDataTable Is Nothing Then

            '   MessageBox.Show(lvarDataTable.Rows(0).Item("id"))
            chk1.Text = CStr(lvarDataTable.Rows(0).Item("nazwa"))
            chk1.Tag = New clsTrOpcjePoprawy(CInt(lvarDataTable.Rows(0).Item("id")), CType(IIf(IsDBNull(lvarDataTable.Rows(0).Item("nazwa")), String.Empty, lvarDataTable.Rows(0).Item("nazwa")), String))

            chk2.Text = CStr(lvarDataTable.Rows(1).Item("nazwa"))
            chk2.Tag = New clsTrOpcjePoprawy(CInt(lvarDataTable.Rows(1).Item("id")), CType(IIf(IsDBNull(lvarDataTable.Rows(1).Item("nazwa")), String.Empty, lvarDataTable.Rows(1).Item("nazwa")), String))

            chk3.Text = CStr(lvarDataTable.Rows(2).Item("nazwa"))
            chk3.Tag = New clsTrOpcjePoprawy(CInt(lvarDataTable.Rows(2).Item("id")), CType(IIf(IsDBNull(lvarDataTable.Rows(2).Item("nazwa")), String.Empty, lvarDataTable.Rows(2).Item("nazwa")), String))

        End If

    End Sub



    Private Sub frmOpcjePoprawy_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        mvarDbHolder.Close()
    End Sub
End Class